Softwarová Záchrana 3/Softwarova-zachrana-3.bin/Xteq X-Setup/xqdcXSP-Setup-EN.exe/{app}/plugins/XQ Win2K Start Menu 3.xpl

Text File | 2002-01-03 | 5KB | 147 lines

"FILE"="Xteq Systems X-Setup Plugin 5.0"
"TYPE"="9"
"COUNT"="1"
"UIPATH"="Appearance\Start menu\Windows 2000"
"NAME"="Start Menu Options"
"VERSION"="4.00"
"LANGUAGE"="VBScript"
"OSVERSION"="000100"
"TEXT 1"="dⁿdel dⁿ"
"DESCRIPTION 1"="Common Groups: Normally the contents of the Start Menu vary from user to user. With this option enabled, you will also be able to see 'Common groups' which all users of a particular computer can see."
"DESCRIPTION 2"="Programs Scrolling: In Windows 95/NT, if the Start Menu was too big to fit vertically on the screen, multiple columns were used. In Windows 98 and above, the Start Menu become scrolling. If you would prefer to see your Start Menu in multiple columns again, disable this option."
"DESCRIPTION 3"="Programs Context Menu: This allows you to view a standard Explorer context menu when clicking with the right mouse button on an entry in Start->Programs. Note: disabling this will also disable the ability to use drag & drop to move the items inside Programs!"
"DESCRIPTION 4"="Administrative Tools: Shows the Administrative Tools folder under Start->Programs. "
"DESCRIPTION 5"="Start Menu Context: If this is enabled, a context menu will appear when you click on the Start button with the right mouse button."
"DESCRIPTION 6"="User-created Folders: If this is enabled, extra folders (like the Cascading Control Panel) can appear above the Program entry. When disabled, these folders will be hidden."
"DESCRIPTION 7"="Personalized Menus: If this is enabled, 'Intellimenus' will be used on your Start Menu, which hides the items you don't use very often."
"AUTHOR"="Xteq Systems"
"CONTACTURL"="http://www.xteq.com"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
"COMMENT 1"="'Multiple Columns' setting from Tom Simpson [[e-mail]] - thanks a lot!"
"COMMENT 2"="Thanks to Ken [[e-mail]] for the "no drag&drop" notice."
"COMMENT 3"="Thanks to Dutler, Dennis R [[e-mail]] for the "XP screw up" notice"



      sV_CommonGroups="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoCommonGroups"
   sV_StartMenuScroll="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\StartMenuScrollPrograms"
   sV_ProgramsContext="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoChangeStartMenu"
        sV_AdminTools="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\StartMenuAdminTools"
        sV_SubFolders="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoStartMenuSubFolders"
      sV_IntelliMenus="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\IntelliMenus"

SUB Plugin_Initialize
 'NT/2000 (XP?)
 Call SetUIElement(1,"Show Common Groups in Start->Programs")
 Call ReadIt(1,sV_CommonGroups)

 '98/2000/ME/XP -> Win98 Special Handling
 Call SetUIElement(2,"Show Start->Programs in scrolling mode")
 Call ReadIt_3(2,sV_StartMenuScroll)

 '98/2000/ME/XP
 Call SetUIElement(3,"Show Start->Programs context menu")
 Call ReadIt(3,sV_ProgramsContext)

 '2000/XP
 Call SetUIElement(4,"Show Start->Programs->Administrative Tools")
 Call ReadIt_3(4,sV_AdminTools)

 'NT/2000/ME/XP
 Call SetUIElement(5,"Show user-created folders at top of Start Menu")
 Call ReadIt(5,sV_SubFolders)

 '2000 (not XP?!?!?)
 Call SetUIElement(6,"Use Personalized Menus (hide unused items)")
 Call ReadIt_3(6,sV_IntelliMenus)
END SUB

SUB Plugin_CheckData(ElementIndex)
END SUB

SUB Plugin_Apply(ElementIndex,ElementSubIndex)
 Call WriteIt(1,sV_CommonGroups)
 Call WriteIt_3(2,sV_StartMenuScroll)
 Call WriteIt(3,sV_ProgramsContext)
 Call WriteIt_3(4,sV_AdminTools)
 Call WriteIt(5,sV_SubFolders)
 Call WriteIt_3(6,sV_IntelliMenus)


 Call IndicateSettingChange()
END SUB

SUB Plugin_Terminate
END SUB





Sub ReadIt(ITM,PATH1)
 if RegValueExists(PATH1)=false then 'setting available?
    'no setting -> item visible
    Call SetUIElementEx(ITM,true)
 else
    i=RegReadValue(PATH1)
    if i=0 then
       Call SetUIElementEx(ITM,true)
    end if
 end if
End Sub

Sub ReadIt_2(ITM,PATH1)
 if RegValueExists(PATH1)=false then 'setting available?
    'no setting -> item not visible
    Call SetUIElementEx(ITM,false)
 else
    i=RegReadValue(PATH1)
    if i=1 then
       Call SetUIElementEx(ITM,true)
    end if
 end if
End Sub

Sub ReadIt_3(ITM,PATH1)
 if RegValueExists(PATH1)=false then 'setting available?
    'no setting -> item is active
    Call SetUIElementEx(ITM,true)
 else
    s=RegReadValue(PATH1)
    if LCase(s)="yes" then
       Call SetUIElementEx(ITM,true)
    end if
 end if
End Sub

Sub WriteIt(ITM,PATH1)
 b=GetUIElementEx(ITM)
 if b=true then

    s=RegReadValue(PATH1)
    if IsEmpty(s)=false then
       Call RegDeleteValue(PATH1)
    end if

 else
    Call RegWriteValue(PATH1,1,2)
 end if
End Sub

Sub WriteIt_2(ITM,PATH1)
 b=GetUIElementEx(ITM)
 if b=true then
    Call RegWriteValue(PATH1,1,2)
 else
    Call RegWriteValue(PATH1,0,2)
 end if
end Sub

Sub WriteIt_3(ITM,PATH1)
 b=GetUIElementEx(ITM)
 if b=true then
    Call RegWriteValue(PATH1,"YES",1)
 else
    Call RegWriteValue(PATH1,"NO",1)
 end if
End Sub